PPPPPPPPPPPP AAAAAAAAA SSSSSSSSSSSS 
PPPPPPPPPPPP AAAAAAAAA SSSSSSSSSSSS 
PPPPPPPPPPPP AAAAAAAAA SSSSSSSSSSSS 
PRP PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 

daa PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 

PPP PPP AAA AAA SSS 
PPPPPPPPPPPP AAA AAA SSSSSSSSS 
PPPPPPPPPPPP AAA ABB SSSSSSSSS 
PPPPPPPPPPPP AAA SSSSSSSSS 
PPP AAAAAAAAAAAAAAA SSS 
Ppp AAAAAAAAAAAAAAA SSS 
PPP AAAAAAAAAAAAAAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSS 
PPP AAA AAA SSSSSSSSSSSS 
PPP AAA AAA SSSSSSSSSSSS 
Ppp AAA SSSSSSSSSSSS 


Qon 
AION 
COO 
QO 
QO 
AON 
QO 
QO 
QO 
CON 
OO 
AON 


AAAIAMAOAIMAIAIMAOAAAOOY 
POAIAAMQIAIMAIAAMAOMAL 
AAAOAAIMOAIAIMAAAIOANY 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
AAA AAA 
AAA ABA 
AAA Aad 
AAA AAA 
Aah AAA 
AAA AAA 
ABA ABA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AMA ADB 
ALA AAA 
AAA AAA 
AAA AAA 
ABA AAA 
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awn ww wn 
“nn nw wm 
nw “ww wn 
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nnn nn 
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PAS$1O_INPUT ; PASCAL RMS Li - 
Bo I Se MPRESIS NGAGE ARAM NESTE 


SRRAAAEAA EKA TEETER AARARAAEATAHHEAAEEAAAARAHeeeeeeeeeeeeReTee ee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE 4 cyl eee ae tee LICENSE AND MAY BE USED AND sor ree 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tats ~~ ah mI M 


1 ; 
‘ i* 
4 3" * 
000 is : 
3* * 
ane 
§ is : 
3* ® 
$0 10 ;* INCLUSION OF THe ABOVE Spit had NOTICE. THIS SOF Tw ARE OR 0 * 
0 11 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it 17 - TRANSFERRED. : 
4 15 ® THE gt a IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 1 7* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 : i 3* CORPORATION. . 
* * 
0000 19 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 0 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 1 ;3* * 
0000 § 3* * 
4 ? FERRARA AAAA ARERR RATER AAA AAA AAAAAAA AA AAA TA TAA TEAR AAA TAeRe Kee eee eee Tete eee 
0000 he -TITLE PAS$IO_ INPUT ; PASCAL RMS Linkage 
8098 § ident ‘'v04-000' 
0000 § WITTIIIIIILIIITIT LILI LLL LTT LLL LiL T Litt. 
0000 Q RRR ee eee eee AAA AAA AAA AAA ARERR AAA AAAAAAAAAATAAATA ATTA eee eee eee eee 
0000 0 ;** ae 
0000 1 ;** PASCAL RMS LINKAGE FOR VAX-11/780 ae 
0000 ¢ pee Stessssssssssssssssesseee=ee=ee2e==e== aa 
0000 335 ;** e 
0000 4 je at 
0000 5 ;** VERSION V1.0-1 == OCTOBER 1979 ae 
0000 6 ;** at 
0000 37 ;** DEVELOPED BY: COMPUTER ae | ian DEPARTMENT at 
0000 38 ;** UNIVERSITY OF wen INGTON af 
0000 39 ;* SEATTLE, WA 9819 ee 
0000 40 ;** ee 
44 a ,f AUTHORS: MARK BAILEY, JOHN CHAN, HELLMUT GOLDE belied 
"an ae 
0000 ¢g PITIIIIIIIITIITI IIIT TIII TIT TT IT Titttiiiiiiiitititili titties 
8008 re: FRRAAAAKA KAKA AAA AA KAA AAA eA Ae AAT AAA AAA AAA AAA ATTA AAA AAA e TTA 
0000 46 : Modified to allow input of 31 char stor scalar values. 
44 rt : Paul Hohensee 24Jan 
B00 49 : Modified to check for overflow of integers during a READ 
oS ? ; Susan Azibert 22May80 
$009 § : Modified to check for overflow of real ond double precision numbers 
4 3 during a R 
0900 : : Susan Azibert 22May80 
000 gi > Modified to change the potting for oP RN CRLF to <LF> <text> <CR> 
0000 57 ; Susan Azibert 160ct 
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PASCAL.SR RCIP AS1I02.MAR;1 


8 ; Modified to force a READLN on read of a string if EOLN is true. 
60 ; Old behavior was to for ea + Na onky is both gon was true 
61 ; and last read was a st ri" read. If the last read was not a string 
86 ; read, a null oye ies (all Blanks) Lt read and the file left 
65 ; positioned at 
6 re: § Paul “Hohensee 19Jan81 
6 : Correct PASSREADSCAL so it acce tS capital Z. 
3 ¢ 3 Paul Hohensee SOF eb : 
38 $3 ; 7. Change PASSCNV_IN_DEFG to an sits function 
009 a ; 8. 11-Aug-81 Paul Hohensee Change to general addressing of external routines 
000 ie WITTIIIIITIIIIIT ITLL LLL ILITiTiTitiiii lili iii iiiiiiiiii iit 
44 74 FRRAAAAAA AA AHK AAA eHeKeKeKeeKeeeeekeeeteeeeeteeeteeeeeteeene 
000 75 ;** ee 
0000 76 ;** ee 
0000 77 ;** SECTION 2 * 
0000 78 ;** ae 
0000 79 ;e8 INPUT PROCEDURES ee 
0000 80 ;** ee 
0000 81 ;** we 
0000 82 seeeeeeeeeeerereeeereeeeedeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
0000 B35 seeeeeeeeeeeeeeke eee eee eek HARAeKKAK Ree e eee eee eee eeee eee 


; PASCAL RMS Linkage 16-SEP-1984 05:02:92 AX/VMS Ma 


aaa aan aaa ana an aa a at a at a a a a ts = — ss 2s 4 4 2 


FAWN WII IIOP 2 2 
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“SEP-1984 PASCAL.SRCJPASIO2.MAR; 1 (1) 


; For any file variable the following storage is assumed: 


38( HEX) BYTES for the PASCAL Logical files 
‘ : ‘INPUT’ and ‘OUTPUT’ only. 


MACRO OPTIONS 


-DSABL GBL ; No undefined references 
~ENABL FPT ; Rounded arithmetic 


: External references 


-EXTRN PASSREADOK 

-EXTRN PASSACTUALGET 

-EXTRN PASSSTATUSUPDAT 
-EXTRN PASSBLANK_R3 
-EXTRN PASSIOERROR 


.EXTRN FORSCNV_IN_DEFG 
TEXTRN OTSSCVT“TINL 


; Provide definitions of system values 

SDSCDEF ; String descriptor definitions 
$F ABDEF 

SRABDEF 


> PASCAL compiler constants 


FSB: POINTER} 
: STATUS WORD! 
Saar eee 
 LINELIMIT | 
: LINECOUNT | 
: RECORD NUMBER! 
; RAB: as ae are 
: , 44CHEX) BYTES ; 
: FAB: "ei Spits MRE SES ' 
; _ SOCHEX) BYTES 
NAM: ‘Pimuaeaghis Bee NOTE: The NAM block is allocated 


bt 44 tpt Ot AY Oph Ot te ty 
=O OD NONE WN 0 OD NA UNE WIN OS OD NOUN EW O O@NOU EW O NOUS AO OONOM 
. 


ae Ee ee ee aa eC miner % 


PASSIO_ INPUT ; PASCAL RMS Linkage 16-SEP-1984 02:07: AX/VMS Macro V04-00 P “ 
vou-000 : $23F 5-1 38e 5:93:98 PASCAL.SRCJPASIO2.MAR; 1 me (1) 


; NOTE: The constants below with the names ‘PASSC_XXXXX' are 
; used in the PASCAL compiler with the nameS ‘XXXXX'. If the 


14 
is 
145 ; values in the compiler are altered then the values below Bi 
198 ; must be altered accordingly. s 
168 ; PASSC DFLTRECSI = 257; ; default buffer size dC 
149 ; PASSC-NIL = ; NIL pointer Ds 
150 ; PASSC_TRUE = 1 ; TRUE ds 
151 ; PASSC_FALSE = 0 ; FALSE DS 
1 ¢ ; PASSC_NOCARR = 0 ; no carriage control EE 
153 ; BASEL CARRIAGE = 1 ; FORTRAN carriage control E] 
154 ; PASSC_LIST = ; LIST carriage control FA 
: 139 ; PASSC_PRN = 3 ; PRN carriage control 4 
ap 139 ; PRN carriage control constants | rs 
6 135 ; PRN_CRLF = *x8D01 ; PRN carriage control constant FS 
000 160 : for <LF> <text> <CR> FS 
000 161; PRN_NULL = *x0000 ; PRN carriage control constant | FS 
3288 1e ; for no carriage control FS 
0000 196 ; File status block constants 
00000018 B208 196 PsesC_OLy “76 ; FSB block Length 
P+ = 
0000 168 ; FSBSV_EOF = 1 
00000002 444 192 fsbsv FOUN =, 
0000 171 ; FSBSV_TXT = 4 ; textfile flag 
000 6 3 FSBSV_RDLN = 0 ; last access READLN 
4464 173 ; BSV_DIR = 6 ; direct access flag 
000 174 ; FSBSV_PUT = 7 
000 175 ; FSBSV_INT = 8 ; internal flag 
000 176 ; FSBSV_PRMT = 9 3 prompt flag 
0000 177: FSBSV-OUTPUT = 10 : OUTPUT file flag 
0000 178 FSBSV_ACTIN =_11 ; actual input flag 
0000 179; FSBSV_DELZ =_30 ; delete file if empty 
0000 180 ; FSBSV_INC = 31 ; included file tap 
44 13) : FSB$B_CC = 6 3 carriage control byte offset 
36 1 ¢ : FSBSM_OPEN = *x0020 
8 0 183; FSBSM_EOF = *x0002 
000 184: FSBSM~EOLN = “x0004 
4 185 ; FSBSM_GET = “RR 8 
186 FSBSM~PRMT = “x0200 
00 187 ; FSBSM_PUT = *x00000080 
00 1 3 3 FSBSM_TXT = “7928 
00 1 : FSBSM_RDOLN = “Xx oo 
O60 190 ; FSBSM_DIR = *x00000040 
00 191 ; FSBSM_INT = *x00000100 
4 138 3 FSBSM_OUTPUT = *x0400 
0 193 ; FSBSM_ACTIN = nee 00 
00 194 ; FSBSM_DELZ = “x4 32000 
4 195 ; FSBSM_INC = *x8000000 ; 
0 Hs 3 FSBSL_CNT = 16 : Line count (textfiles) 
4 197 ; FSBSL_INC = #9 ; ZINCLUDE block address 
0 198 ; FSBSL_LIM = z Linelimit 
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00000008 138 
4 
5 
3 
09 
00000004 1 
000 \¢ 

000 1 
4 14 
00000020 000 15 
00000024 0000 16 

0000 1 
0000 18 
00000028 Oop 19 
0000002D 000 0 
0000002E 0000 1 
00000030 0000 ¢ 
000000 $000 4 
$0000039 $600 5 
00000041 0000 6 
00000044 44 7 
BoD nO nSA 000 8 
000005A 0000 9 
000005F 44 0 
0000061 0000 31 
0000007A 0000 ¢ 

944 
OCCCCCCC 0000 4 
80000000 0000 5 
44 § 
0000000 

4464 8 
0 9 
00 40 

00 41 
000 $48 

4 
it 
00 346 
¢} 
49 
00000004 00 50 

0 51 
$718 OF AC ET 00g 958 
00000000 * GF gf FA 3 22 
1— A? 0 90 O00E 5 


16-SEP-1984 02:07: AX/VMS Macro v04-00 Pa 
ets $5593: 98 EPASCAL. SREIPASIO2—MAR: 1 ” 
FSBSL_LST = 8 ; last yord offset 
FSBSL_PFSB = 20 


related file FSB for proaps ina, 
for INPUT, has address of OUTPUT FSB 
for ouTPuf, has address of INPUT FSB 
(shares storage with include address 
and direct access record 

buffer address 

record buffer address for 

direct access (shares storage 

with include address and related 
file FSB) 

status word offset 


FSBSL_REC = 20 


FSBSL_STA = 4 


Character constants 


TAB = “X09 
SPACE = *X20 


AA = “X41 

DD = “X44 

EE = “x45 

ZZ = *X5A 
UNDERSCORE = “XSF 
AALSMALL = “X61 


ZZ-SMALL = “X7A 


MAX10 = 214748364 
MAXNEG = “x80000000 


.PSECT _PASSCODE, 


gereerererererereeee 


: x 
* PASS$SGETBIN * 
* * 


erererererrrrrereree 


PIC, EXE ,SHR,NOWRT 


Gets the next record from a (binary) file 
Argument offsets 


AP ; number of arguments (1) 
FSB_DISP = 04 ; FSB address 

-ENTRY PASSGETBIN, “M<R7> 

ADDL3 =F SB_DISP(AP) ,#FSBSC_BLN,R7 ; R7 = address of RAB 
CALLG (APY,G*PASSREADO 

MOVB § #RAB$SC_SEQ,RABSB_RAC(R7); make sure sequential 
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-SEP-1984 PASCAL.SRCJPASIO2.MAR;1 (1) 
QO000000"GF 6C FA 1% § CALLG (AP) ,G*PASSACTUALGET ; get for call to GET 
04 1 RE 
1h $89: 
0000 1A 60 .PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
A 66 : eeeeerererereerreees 
3 * « 
14 rt: 3 * PASSGETTXT * 
. w ® 
A 68 : eeereeereerererereee 
ah o8 > Advances the file pointer and sets the status word as required 
aia $° : for textfiles. 
OIA 4 > Argument offsets 
OO1A 48 : AP 3; number of arguments (1) 
00000004 BA a FSB_DISP = 04 ; FSB address 
0040 O01A 7 ‘ .ENTRY PASSGETTXT, “M<R6> 
00000000'GF 6C FA orc 7 CALLG (AP) ,G*PAS$READOK 
56 04 a 4 3 ; 4 voy A DISP(AP) ,R6 ; R6 = address of FSB 
QO000000'GF 6C FA 8 9 80 CALLG (AP),G*PASSSTATUSUPDAT ; update status word 
04 00350 81 RET 
ae 
0000 se -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
0031 6 : ~ plata me tata en 
at 88 : * PASSREADLN 
a ® 
3H 39 : RRAKEAAAAAREAReeeee 
0031 4 : Positions the pointer to the last character of the Line, clears 
bo8y 37 ; the EOLN flag, and sets the RDLN flag. 
9031 9 ; Argument offsets 
0031 97 ; AP ; number of arguments (1) 
00000004 oth 38 FSB_DISP = 04 ; FSB address 
0040 6 1 00 ‘ -ENTRY PASSREADLN, “M<R6> 
56 04 AC 00 3 1 MOVL FSB_DISP(AP) ,R6 ; R6 = address of FSB 
00000000'GF 6C FA 08 CALLG (APY ,G*PASSREADOK 
66 08 A6 DO 00 3 MOVL FSBSL_LST(R6) , (R6) 
66 06 004 04 INCL (R6) ; set pointer to LAST + 1 
00000000 ' GF 6C FA 44 05 CALLG (AP) ,G*PASSSTATUSUPDAT 
04 48 8 RET 
Ooe 308 : 
0000 Ree 03 ' -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
doce 11 : eeereeereeeerererere 
4C 12 ; * * 
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PAS$IO_ INPUT ; PASCAL RMS Linkage 16-SEP-1984 02:07: AX/VMS Macro V04-00 p 7 
vOe~000 : Beep ions OS:sorie PPASCAT ear ToAsOz—maR:1 Fase a 
4C 13 3 * PASSREADCHAR * 
4C 14; * * 
4C¢ 18; eerererererererereee | 
4C 16 : 
rf: 18 ; Argument offsets 
4C 19 : AP 3 number of ar nts (1) 
90000004 04¢ 320 FSB_DISP = 04 ; FSB address | 
00000008 rt: 1 VAR_DISP = 08 ; variable address 
3 
0040 4C : -ENTRY PASSREADCHAR, “M<R6> 
56 604 af + 5 : ot FSB_DISP(AP) ,R6 ; R6 = address of FSB 
00000000'GF 01 FB Te § CALLS #1,G*PASSREADOK | 
B26 3 ; Store the character and increment pointer 
08 BC 0086 90 0058 0° MOVB @(R6),@VAR_DISP(AP) | 
66 06 44 1 INCL (R6) 
56 DD 006 § PUSHL R6 
00000000 ' GF 01 FB Bees CALLS #1,G*PASSSTATUSUPDAT 
04 0068 4 RET 
dee 836 | 
0000906¢ 3 3 .PSECT _PASSCODE, PIC,EXE,SHR,NOWRT | 
006C $ : Reeeeeeeeereeeeeeeee | 
006C 40 ; * * 
006C 41 ; * PASSREADSTR * 
006C $5 ; * * 
06C 43; eeeereereeerreeeeees 
Dost 44; 
06C 45 ; Argument offsets 
geet 46 ; 
006C 47 ; AP ; number of arguments (3) | 
00000004 006C 48 FSB_DISP = 04 ; FSB address 
00000008 606C 49 STR_DISP = 08 3 string address 
0000000C ber 3 LEN_DISP = 12 3; string length (by value) | 
oore O06C $54 : ENTRY PASSREADSTR, “M<R2,R3,R4,R5,RO> | 
56 04 AC 00 06 5 MOVL FSB DISP(APS,R6 : R6 = address of FSB 
09 04 A6 «6(02~—Cié€E:Y 88 54 BBC #F SBSV_EOLN,F SBSL_STA(R6S , 100S; if EOLN = TRUE, | 
56 DD 007 55 PUSHL R6 3; go to next Line 
00000031'GF 01 FB 0079 2$ CALLS #1,G*PASSREADLN 
080 57 100$: 
56 OD 33 28 PUSHL R6 
00000000 ' GF 01 fe 0 5 CALL #1, G*PASSREADOK , 
50 08 A6 66 ¢ 08 60 SUBL3 (R6),FSBSL_LST(R6).RO _; RO = remaining Length 
Oc ac 20 00 86 0 C OBE 61 vC5 RO, a( RO) ,ASPACE ,LEN_DISP(AP) ,aSTR_DISP(AP) 
66 ef DO $3? ¢ MOVL R1,(R6) 3; store new pointer 
56 DD 9A 6 PUSHL 
00000000 * GF 01 FB H" 64 CALLS #1,G*PASSSTATUSUPDAT 
04 A 65 RET 
A4 66 ; 
AG 67 ; 
000000A4 68 -PSECT _PASSCODE, PIC, EXE, SHR,NOWRT 


PAS$SIO_INPUT ; PASCAL RMS Linkage 16-SEP-1984 :07:22 VAX/VMS Macro V04-00 Page 
y02.000 ° mits Bg: 93:92 PASCAL.SRCJPASIO2.MAR; 1 ° (dy 
OAS 9; 
OAS 0 ; Reeeeeeeeeeeeeeeeeee 
AS 71 ; ® # 
AG ie $ *  PASSREADSCAL * 
AG 75 3 * * 
AS 74; eeeereeeerererereeee 
QA4 75 ; : 
OAS 6 ; Reads a scalar value from the character file. Lower case letters are 
OAS 77 ; tranlated into upper case letters. If the name can not be found a 
OAS 78 ; runtime error occurs. 
OAS 79 ; 
ve 9 ; Argument offsets 
OOAS Hf : AP ; number of arguments (4) 
00000004 O00A4 8 FSB_DISP = 04 ; FSB address 
00000008 Q0A4 84 SCA_DISP = 08 ; scalar address 
0000000C O0A4 85 NAM_DISP = 12 3; name list address 
00000010 00A4 $9 MAX_DISP = 16 ; maximum scalar value. ; 
O0A4 87 ; The name List is ‘NAMELEN’ times 
OOAS 388 3 the maximum scalar value bytes long 
O0AS 389 ; 
Q00A4 390 ; Constants 
OOAS 4 ; 
QOO0001F O0A4 4 MAXNAM = 31 ; maximum scalar name size (in bytes). 
QOAS 393; this definition must match ‘alfaleng’ 
O0AS 394 in the compiler. 
00000020 Ooad 302 NAMELEN = MAXNAM + 1 3; size in bytes of entry in name List 
OOAS 97 ; The scalar translation table 
O00A4 98 ; 
00A4 399 SCALTRANSTABLE: 
00°00'00'00'00'00'00'00'00'00'00'00" 00A4 400 -BYTE OC*X23 = *xX0 + “*x1) 
00'00'00'00'00'00'00'00'00'00'00'00' 0080 
00'00'00'00'00'00'00'00'00'00'00'00' OO0BC 
24 00C8 401 BYTE DOLLAR 
00°00°00°00'00"00'00'00'00"00'00" 00C9 402 «BYTE OC*X2F = *X25 + *X1) 
39 38 37 36 35 34 33 32 31 30 0004 403 SvTE 4 “250, “E51, “AS2. “E35, “Ss, “5. = 
OODE 404 "55. “E37. “x38, “x39 
heh Ree ecw ee BODE 405 -BYTE OC*x40 = *x3A + 4x1) 
4C 4B 4A 49 48 47 46 45 44 43 42 41 ODE 406 BYTE “X41, “X42, “X43, “X44, *X45, - 
58 57 56 55 54 53 52 51 50 4F 4E 4D OOF! 
5A 59 OOFD 
OOFF 407 X46, “X47, “X48, “X49, “X4A, - 
Bore 408 “X4B, “X4C, “X4D, “X4E, “X4F, - 
OFF 409 “x50, “x51, “x52, *X53, “X54, - 
OOFF 410 “x55, “x56, “X57, *X58, “X59, - 
OFF 411 “X5A 
00 5F 00 00 00 00 OOFF tig BYTE 0,0 0.0 VRDERS FORE ,0 
4C 4B 4A 49 48 47 46 45 44 43 42 41 «(2010541 “BYTE § «= *K41, "42, “X43, 4XG4, *X45, - 
58 57 56 55 54 53 52 51 50 4F 4E 4D 0111 
5A 59 011D 
O11F 414 “X46, “X47, “X48, “X49, “XGA, - 
11F 8396415 “X4B, “X4C, “X4D, “X4E, “X4F, - 
11F 416 “x50, “x51, “X52, “X55, “X54, - 
11F 6417 “x55, “X56, “XS?, °X58, “X59, - 
11F 418 “x5 
00°00'00'00'00' O11F 419 -BYTE OC*X7F = “*X7B + *X1) 
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SSEb=198¢ 08:82:44 EPASCAL.smeaPaStozcman:1 "9° (9, 


v04 
00'00'00"00"00'00'00'00"00'00'00'00" 0124 420 sBYTE —OL*X7F1 
os ‘J . c) ' , oy .. a a e. 1% . 4 C 
, : a a t .] a a ' ' a 1 
.] J a  ] © 5. 7  ] & ' , i] 128 
BR. .] . .]  ] 3. os ' a ,  ] a 154 
e 7 o : a , 7 t a , ' ' 
00°00" v s a  ] e o ‘J tT] , Be 190 
00'00' "00" v 3. of 99° 6 .. Q 196 
00°00'00'00'00'00'00' 8 ms 99° 184 
nelieelinalinedlinadt : * « 0°00'00'00'00' 0190 
0°00'00°00'00'00'00' 13§ as 
OFC 1A 4 ¢ ENTRY pen elestiot na” R3,R4,R5,R6,R7,R8> 
56 04 AC 00 O1A5 4 MOVL  FSB_DISP(AP).R6 : R6 = address of FSB 
2 6 DO O1A9 424 MOVL R6 : for PAS$BLANK_R3 
00000000'GF 16 O1AC 425 JSB OA PASSBLANK _R3 : skip leading Blanks 
818s ? § ; 3 returns next address in R1 
O12 ? 3 ; Check if first character is a letter 
41 8F 61 91 O1B2 430° CMPB ss (R11), #AA 
7A 8619 0186) 431 BLSS 900$ 3 error 
5A 8F 61 91 0188 $36 CMPB (R1) ,#2Z 
Oc 15 O1BC 43 BLEQ 110$ ; ok 
7A 8F 61 91 8185 434 CMPB (R1) ,#ZZ_ SMALL 
6—€ 14 O1C 435 BGTR 900$ 3 error 
61 8F 61 91 0104 436 CMPB (R1),#AA_SMALL 
68 19 0108 437 BLSS 900$ 3 error 
O1CA 438; 
O1CA 439 ; Ok, lets read and translate the string 
O1CA 440 ; 
O1CA 441 110 
50 08 AB $1 C3 OICA rk SUBL3 = R1,F SBSL_LST(R6) ,RO 
50 D6 OCF 44 RO- ; RO = # of characters left in Line 
Ss fs ¢ 310) rr) SUBL2 R0O,SP i make + som for translated string 
50 FEC9 CF 00 «61 29 2F He. 446 MOVTUC RO,(R1),#0, AOE | RO, tSP) 
10D 447 ; 
1DD 448 ; Update the FSB 
10D 449; 
66 51 DO ODD 450 MOVL R1,(R6) 3; update pointer 
56 DD OIE 451 PUSHL R 
00000000 ' GF 01 B i $36 CALLS #1,G*PASSSTATUSUPDAT 
169 434 ; Try to find a match and store the value 
55 SE C2 O1E9 456° SUBL2  SP,R5 ; RS = # of characters translated 
wv ft 8 Siete 637 CMPL R5,#MAXNAM ; compare only first maxnam bytes 
03 15 OlEF 438 BLEG 115$ 
55 1F dO i") $23 115$ MOVL #MAXNAM,RS 
54 10 AC 20 CS O1FS = 461 " MULL3 = #NAMELEN,MAX_DISP(AP),R4; R4 = table offset of current string Foi 
8 D4 4 166 1208 LRL R8 ; R8 will equal 1 if unique inital substring 
6E 55 20 0c BC44 20 eB bire 464 . CMPCS #NAMELEN,@NAM_ DISP(AP)CR4J, MSPACE,R5S, (SP) 
ae 20 465 BEQL 199$ ; exit, found an exact match, search no fur | 


ee 


54.20 

10 AC 
6 
54 
04 


54 


8394 8F 


0090 C6 
088 C6 
‘ 03 


mmnoonw 


ooo 


SELLER LR LLL LER ERE PELE 


5O.09 09 09 09 00 09 09 0009 09 SINISE NNO om 
SOWONAU EWN O ODONAOUES WN OOONIO 


SOOOCOOCOSCOOCOCOSOOCOOCOCOCOCOSOSOSOSOOOOCOCSOOSOOOOOCOO OOOO OOOOOOCOO: 
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; PASCAL RMS Linkage 


N 15 | 
SrREp-1986 Os:521% ERASCAL.SReSPASTOZ man:1 = P29® 19), 


TSTw OR ; did we match full input string? | 
BNEQ 125$ 
INCL R ; RB := 1 if first initial substring match | 
1258 MOVL R4,R7 : preserve offset 
; sueLe —- ; R4 = offset of next string to try 
DECL R ; no exact match, _ there a unique initial | 
BNEQ 900$ ;  NEQ: no, erro 
MOVL R7,R4 ; yes, set up table offset 
Store value and exit | 
199$: 
DIVL2 #NAMELEN,R4 3; convert offset to index 
iy MAX_DISPCAP) ,#256 3; store byte or word? 
MOVB R4,,aSCA_DISP(AP) 3; store byte 
coe BRB 208$ 
" MOVW = R4, @SCA_DISP(AP) ; store word 
202$: 
RET 
No match found, input conversion error 
900$: 


MOVZWL = #*X8394,-(SP) 

MOVZBL <FSBSC _BLN+RABSC -BLN+F ABSB_FNS>(R6) ,-(SP) 
PUSHL <FSB$C”BLN+RABS$C_BLN+F ABSL _FNA>(R6) 

CALLS #3,G*PASSIOERROR™ 


.PSECT _PASSCODE, 


LARRRRASSASSASL LAS ES | 


. ® 
* PASSREADINT * 
’ * 


pARRRRSASASSASRL ASS S| 


PIC, EXE,SHR,NOWRT 


Argument offsets 


> 
. 


number of arguments 


Pp . 

Uin-pite = 04 ; FSB address 
. dS 4 . oe ; variable address 
escriptor offsets 

Res SULT = -12 3; offset of result 

LENGTH = -8 ; offset of Length 

CLASS = -6 3; offset of class and type 

ADDR = -4 ; offset of address 


oo width “nen R3,R4, R6> 


FSB (APS ,R 
JSB Ro Re a _R3 


; R6 = address of FSB 
: R2 needed for PASSBLANK _R3 


: > skip leading blanks 
3 returns R1 as eadress of byte 


KIO MWMMOOWZS BO KH TO MOODS Sl KOK TO MICOS Sr ACH TO MM IOCOZ Sr ACK TO MIO 


———————————_—------------- 


PASS1O_ INPUT ; PASCAL RMS Linkage 16-SEP-1984 02:07:22 VAX/VMS Macro v04-00 Page 
voe=000 : gS obe 83:95:48 PASCAL.SRCJPASIO2.MAR; 1 . 


| 9 D4 56 5 3 CLRL RR ; set counter 
D4 4 CLRL R ; set sum register 
4 06 A 5 CLRL RG ; clear extract register 
53 1 00 C § OVL #1,R3 3 set sign flag : 
1 0D F PUSHL R1 ; store address of string in descriptor 
2: an -} oe 2 1 8 CMPB (R1) ,#PLUS ; plus? 
8 12 4 9 BNEQU 100$ 
D6 66 0 INCL RO 
1 09 6 1 INCL R1 
10 #1 8 6A ¢ BRB 1108 
6C 100$: 3 minus? 
20 6) 91 8 6C¢ 4 CMPB (R1) ,#MINUS 
B 12 of 5 BNEQU 110% 5 
53 FFFFFFFF 50 »? 8 at § Fate ae ; set sign flag 
1 06 7A =4538 INCL R1 
: 3 process integer 
7C 539 110$ 3 i 
54 61 Hi 83 7¢ = 540 SUBB3 #ZERO,(R1),R4 ; R4 = integer value of digit 
0 19 Q $ 541 BLSS 120$ 
39 «661 = 91 8 226 CMPB (R1) ,#NINE 
8 14 8 54 BGTR 120$ ; branch if not digit 
OCCCCCCC BF e) tht re cnet Oe gman ; check for out of range 
4D 14 099 278 BGTR 900$ 
38 «6610S ss 91—s«*OO 3g 54 CMPB (R1) ,#EIGHT 
48 14 029 548 BGTR 900$ 
Ob 19 £944 549 BLSS 111$ 
53 DS 0299 550 TSTL R3 ; check for largest negative 
42 18 $345 551 BGEQ 900$ 
Scere See Eee ae BRB NaN OR 
02A6 554 1118: 
52 OA C4 Bg As 555 MULL #10,R2 
52 54 CO 0249 556 ADDL R4,R2 ; R2 = new sum 
O2AC 557 112$: 
50 D6 QO2AC 558 INCL RO z: increment counter 
51 06 BsAr 559 INCL R1 ; increment address 
CA 11 Q2B0 560 BRB 1108 ; loop if more atgits 
ps8s 561 1208: ; read until not digit 
50 D5 028 286 TSTL RO ; test for no digits read 
29 «613 «(02B4~—o56 BEQL 900$ 3; conversion error 
OA 50 D1 0286 206 CMPL RO,#10 i; check for excess digits 
4 14 0289 565 BGTR 9008 
0 oD Bsee 208 PUSHL RO ; store tength of descriptor 
—E D4 BD 6 CLRL -(SP) ; clear a longqword for the result 
5E OD O2BF 568 PUSHL § ; pass the address to store the result 
FB AD OF C1 237 PUSHAB LENGTH(FP) ; pass the address of the descriptor 
00000000 ' GF 9¢ F C4 0 CALLS #2,G*OTSSCVT_TI_L ; call conversion routine 
1 E CB 71 BLBC R ; if error, output message 
08 Bc BE 0 (ec re MOVL (SP)+,aVAR_DISP(AP) > store integer 
66 51 00 D ef MOVL R1, (R6) 3; restore pointer address 
56 DD D 74 PUSHL R 
00000000'GF 01 ne 4 376 cates #1 ,G*PASSSTATUSUPDAT ; update status block 
DF 77; 
DF 578 ; No match found, input conversion error 
DF 579; 


i 


_ 
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4 ad all ; PASCAL RMS Linkage 1 mi teh 9¢:9 


p:¢¢ AX/VMS Macro v04-00 Page 12 
-$ 2:14 (CPASCAL.SRCJPASIO2.MAR;1 (1) 
DF 900$: 
7E 8338 SF DF 9 MOVZWL #*X8394,-(SP) 
7€ 030 (6 «9A 02E4 g MOVZBL <FSB$C_BLN+RABSC_BLN+FABSB_FNS>(R6) ,-(SP) 
008 8 DD +4 PUSHL <FSBS$C PLP ORARS. WOLNOFABSL _FHAD (RO) 
00000000 ' GF F ED : CALLS #3,G*PASSIOERROR 
F4 ; 
aoe 4 ; -PSECT _PASSCODE, PIC,EXE,SHR,NOWRT 
O2F4 fee) : etereeeereererereeee 
F4 90 ; * . 
Fe 591; *  PASSREADREAL * 
F4 3 : * * 
O2F4 93 ; eeeeeerererererereee 
O2F4 594 ; 
O2F4 595 ; Argument offsets 
O2F4 238 i 
O2F4 597; AP ; number of arguments (2) 
00000004 O2F4 598 FSB_DISP = 04 ; FSB address 
00000008 Osta 44 VAR_DISP = 08 ; variable address 
O01C O2F4 601 «ENTRY PASSREADREAL,“M<R2,R3,R4> 
52. 04 AC DO O2F6 60 MOVL FSB_DISP(AP) ,R2 ; R2 = address of FSB 
00000000'GF 16 O2FA 60 JSB G*PASSBLANK_R3 ; skip leading blanks 
030 604 ; returns located byte in R1 
50 51 oO 030 605 MOVL R1,R0 ; save starting address 
030 606 3; check for plus 
2B S61 91 0303 607 CMPE (R1) ,#PLUS 
04 12 0306 608 BNEQ 210% 
51 D6 0308 609 INCL a1 
07 11 QO30A 610 BRB 2208 
030C 611 2108: ; check for minus if not plus 
20 61 91 030C ol¢ CMPB (R1) ,@MINUS 
02 12 O30F 61 BNEQ 2208 
51 D6 0311 614 INCL be 
b3i3 615 220%: 3; count integer part 
30 61 91 O31 616 CMPB (R1) ,#ZERO 
09 19 0316 617 BLSS 230$ 
39 61 91 #0318 618 CMPB (R1) ,#NINE 
04 14 OQO31B 619 BGTR 2308 
51 D6 Baie 620 INCL R1 
F2 11 OS1F 6s) BRB 2208 ; loop 
0321 6 ¢ 2308: 3 count decimal point 
2 61 91 Be , «© CMPB (R1) ,#POINT 
10 12 4 $24 BNEQ 250$ 
51 D6 0326 625 INCL R1 
0328 6 § 2408: ; count decimal part 
30 6 91 328 66 CMPB (R1),#ZERO 
9 19 B 6 3 BLSS 2508 
39 «661 = 91 D 6 CMPB (R1) , NINE 
9 14 0330 630 BGTR 2508 
1 D6 Q332 631 INCL R1 
F2 #11 4 6 ¢ BRB 2408 ; loop 
6 6 2508: 3; check for ‘E* 
45 BF 61 91 6 634 CMPB (R1) ,#EE 
06 13 A 635 beql 251$ 
65 8F 61 91 C 636 cmpb (r1),#*a'e' 


rn 


PAS$IO_ INPUT 3; PASCAL RMS Linkage 16-SEP-1984 07:22 VAX/VMS Macro Vv04-00 
ve 000 . g- een 1882 85:95:42 PASCAL.SRCJPASIO2.MAR; 1 
2A 12 4 637 BNEQ 2808 ; done if no exponent 
4 6 8 2518: ; found eapenaat 
51 06 4 6 INCL R1 
4 640 i check sign 
28 1 91 4 641 CMPB (R1),#PLUS 
4 12 4 org BNEQ 2608 
1 06 49 64 INCL R1 
7 ~=«11 48 644 Bre 2708 
40 645 2608: ; check minus if not plus 
20 1 91 4D oe8 CMPB (R1),#MINUS 
¢ 12 5 64 BNEQ 270$ 
D6 2 $8 INCL R1 
4 2708: ; two digit exponent 
30 61 91 54 650 CMPB (R1),#ZERO 
13. «19 57 651 BLSS 280$ 
39 —Ss «61 91 359 $36 CMPB (R1),@NINE 
OE 14 5c 65 BGTR 280$ 
51 06 5 654 INCL R1 
30.0—s «61 91 036 655 CMPB (R1),#ZERO 
07 19 036 $28 BLSS 280$ 
39—s «461 91 tee 65 CMPB (R1),#NINE 
oe 14 8 68 658 BGTR 2808 
1 06 6A 659 INCL R1 
036C 660 2808: : finished with number 
a oe ey ee $f 661 SUBL3 = RO,R1,R3 3 R3 = Lengeh 
048C 51 00 37 be MOVL R1.aFSB_DISP(AP) : update file pointer 
53 0S 0374 66 TSTL R3 
Rh b378 +¢) BEQL 900$ 3: branch if conversion error 
8 4 088 ; Make room for value on stack and convert input 
SE 08 C2 0378 668 SUBL2 #8,SP 
54 2f D0 0378 669 MOVL SP,R4 ; R4 = address of double result 
5 DD 7 670 PUSHL R3 ; length 
54 DD 8 671 PUSHL R4 ; value address 
30 DD 8 ore PUSHL 7 ; string address 
00000473" GF 2 F8 84 67 CALLS #3,G*PASSCNV_IN_DEFG 
F 50 3 8B 8674 BLBC RO : branch if error 
08 BC 64 7% 38 675 CVTDF  (R4) ,a@VAR_DISP(AP) > store read number 
4 AC DD 9 or PUSHL FSB_DISP(AP) 
00000000°GF 01 FB % 67 CALLS #1,G6*PASSSTATUSUPDAT ; update status block 
04 9C o78 RET 
0390 679; 
9D 680 ; Input conversion error 
90 681; 
90 ong 900$: 
7€ tae 8F Hs 9D 668 MOVZ2WL #*X8394,-(SP) 
7E 90 ¢ A! Ae 684 MOVZBL <FSBS$C_BLN+RABSC_BLN+FABSB_FNS>(R2) .-(SP) 
0088 ¢ DD Q3A7 685 PUSHL <FSBS$C~BLN+RABSC—BLN+F ABSL ~FNA> (Re) 
00000000 ' GF FB ea CALLS #3,G*PASSIOERROR 
688 ; 
0000 O83 -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
691 : eertereeretereerererat 
$36 : * * 
693 ;: ® PASSREADDOUB * 


~— 
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PASSIO IN®UT 3; PASCAL RMS Linkage 16-SEP-1984 :07: AX/VMS Macro VG4-00 Pa 14 
verb” . Tet 85:95:42 PASCAL.SRCJPASIOZ. MAR; 1 wadee if 
9% ; e Y 
635 : eeereerrerrererrerer 
637 : Argument offsets 
639 ; ap ; number of arguments (2) 
B008 0808 0 FSB_DISP = Se ; FSB address 
8 4 1 VAR_DISP = 08 ; variable address 
000¢ 708 | .ENTRY PASSREADDOUB, “M<R2,R3> 
5 AC 9) 4 MOVL FSB Th ggg ; R2 = address of FSB 
00500000" ¢F rT 8 705 JSB G*PASSBLANK_R3 : skig leading blanks 
. oF $ ; R1 = Located address 
50 51 00 ef f MOVL R1,R0 ; save starting address 
3 703 : Check for plus 
28 «6191 ee Be CMPBs« (R11) , #PLUS 
mi Bie Fie ohee BO 
07 11 § 714 BRB 2208 
8 CA 715 2108: i; check for minus if not plus 
oe an + al 
94 D6 8 CF «6718 INCL R1 
D1 719 2208: ; count integer part 
so gt 9h 880) Fb 28 cup cap azeno 
39 61 91 +O 43 7 ¢ CMPB (R1) , @NINE 
3 14 0 D 7 BGTR 230% 
1 06 0B 7246 INCL R41 
F211 DD = 725 BRB 2208 ; loop ; 
DF 7 $ 2308: ; count decimal point 
2€ 61 91 DF 7 CMPB (R1), #POINT 
Ce ae: rn a 
O3E6 730 240%: 3; count decimal part 
6) 1 RES 7 amet sah .ezeo 
"odie oo Be ja 
1 D6 i 735 INCL R1 
; ie F 7 $ BRB 240$ ; loop 
RE 2508: ; check for 'D* or ‘E* 
weit aes aes Sa it Soe 
oF bc Ts bare | ped Ge ald! 
sw Ht By ite Ee ine 
e 
65 8F 1 91 406 744 ca (r1),#*a'e' 
A 12 Q40A 7645 BNEQ 280% ; done if no exponent 
40C yg 2518: ; found exponent 
51 D6 040C 7% INCL = R11 
40e oe ; check sign 
28 61 91 4 . 74 CMPB (R11), #PLUS 
04 12 041 750 NEQ 2608 


PAS$1O_ INPUT ; PASCAL RMS Linkage 16-SEP-1984 02:07:22 VAX/VMS Macro v04-00 
vOL=000 . g att p $5: i? PASCAL. SRCJPASIO2.MAR: 1 


-$ 2: 
eA 4) 751 INCL R1 
3) f ‘13 4 § BRB 2708 ; 
— 061 2608: ; check minus if not plus 
2d 1 O71 417 754 CMPB (R1),#MINUS 
¢ 12 O41A 755 BNEQ 2708 
a tie , : 270$ = 2 digi 
: 3; two t exponent 
30 6] 91 OGIE 758 CMPB(R1) ,#ZERO tt 
13 19 06 ! 7 BLSS 2808 
39 «6191S 760 CMPB (R1),@NINE 
oF 14 06 $ 761 BGTR 280% 
1 6 4 166 INCL R1 
30 = 61 462A 676 CMPB (R1),#ZERO 
07 19 042D 764 BLSS 280$ 
39 61 = «9 7 F 765 CMPB (R1),#NINE 
2¢ 14 0432 766 BGTR 280$ 
1 06 0434 76 INCL R1 
0436 768 280%: : finished with number 
53 51 50 C3 0436 £68 SUBL3 = RO,R1,R3 ; R3 = ength 
04 8C 51 DO 043A 770 MOVL R1,@FSB_DISP(AP) ; update file pointer 
53 oS Boze 771 TSTL R3 
| eS Bee ore BEQL 900$ : branch if conversion error 
044 774 ; Convert input 
044 775 ; 
53 DD 044 776 PUSHL R3 ; length 
08 AC DD 0444 777 PUSHL VAR_DISP(AP) ; variable address 
50 DD 0447 778 PUSHL R ; string address 
00000473 ' GF Fs F 0449 779 CALLS #3,G*PASSCNV_IN_DEFG 
08 50 =O€ oft 780 BLBC R ; branch if error 
04 AC DD 0453 781 PUSHL FSB_DISP(AP) 
00000000'GF 01 FB 0456 At CALLS #1,G6*PASSSTATUSUPDAT 3 update status block 
04 0450 78 RET 
O45E 7864 ; 
Beae 785 ; Input conversion error 
45—E 786; 
Boe 787 + =900$: 
7E 8394 BF 3C +28 788 MOVZWL 9 #*X8394,-(SP) 
7E 0090 C2 9A O46 789 MOVZBL <FSB$C_BLN+RABSC_BLN+FABSB_FNS>(R2) ,-(SP) 
0088 ce DD 0468 790 PUSHL <FSB$C~BLN+RABSC_BLN¢FABSL_FNA>(R2) 
00000000'GF 0 FB Be8 791 CALLS #3,G*PASSIOERROR 
47 235 : 
047 793 ; 
0000 : eee -PSECT _PASSCODE, PIC, EXE,SHR,NOWRT 
47 79 : eeeerererrereerereres 
47 797 ; * * 
944 798 ; * PASSCNV_IN_DEFG * 
47 799 ; * ® 
Bee 00 ; eereerrererereeteres 
47 01; 
47 8s ; Converts a character string representing a real or double precission 
of bz : value into a double precission value 
47 05 ; Argument offsets 
47 06 3 
47 O07 ; AP ; number of arguments (3) 


~~ 
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G 16 


PAS$1O_ INPUT ; PASCAL RMS Linkage 16-SEP-1984 02:07:22 VAX/VMS Macro v04-00 Page 16 
vO0-000 , ~$Ep=19Be 05:92:14 EPASCAL. SRE TEAS TO AR: 1 we 
4 BUF _DISP = 04 P ; buffer address 
8 VAR_DISP = § ; ; variable address (of quadword) 
C LEN_DISP = 3 string length (by value) 


0000 ENTRY PASSCNV_IN_DEFG,*M<> 
Make room for descriptor on stack 


SUBL2 epsese ~-5.BLN,SP 
MOV SP 


47 
258 Bo8 
47 19 
47 1 
tbs BIS ; 
tye Bis 
Bae 47 1 
E 05 47 i$ ; R1 = address of descriptor 
04 Al of AC OD t28 18 MOVL Sue. _DISP(AP) ,DSCSA_POINT NTER(R1); string address 
61 c AC BO 2 ? } MOVW LEN_DISP(AP) ,DSC$W-LENGTH(R1); string Length 
: r 1 ; Convert the value 
00 DD 0484 ; : PUSHL #0 ; zero digits in fraction 
O08 AC DD 04 § 4 PUSHL VAR_DISP(AP) : variable address 
DD 04 5 PUSHL R1 ; descriptor address 
00000000'GF 03 FB 04 § CALLS #3,G*FORSCNV_IN_DEFG 
04 049 RET 
Oc98 859 
$49 ; 0: 
049 1 ~ END 


Ssssesceniheiiiensneconcngip dibasic cessedsasadiiadglclcaacteaadeiittacouiaee-totcoaiceaeaaditiaaidine tied eacesieaisLaren iar es sien noo 


PASS$S1O_INPUT ; PASCAL RMS Linkage i oes eb 9 06:02:42 AX/VMS Macro V04-00 Page 17 
Symbol “table “SEP=1984 02:32:14 [CPASCAL.SRCJPASIO2.MAR;1 (1) 
z 41 UNDERSCORE 2 OOSF 
AA SMALL = 90000061 VAR DISe : 09 8 
BR = FFFFFFFC ZERO 5 3 
BUF _DISP = 00000004 Z2 2 OO5SA 
CLASS = FRFFFFFA 72_SMALL = 0000007A 
DOD s 00044 
DOLLAR = 4 
DSCSA_POINTER s 4 
DSC$C_S_BLN 2 $ 
DSCSW_LENGTH = 
EE = 3 4 
EIGHT = 8 
Ff ABSB_FNS = 000 4 
FABSL-FNA = 0000002C 
FORSCAV_IN_DEFG eeereeere =X 00 
FSB$C_eC = 0000001 
FSBSL_LST = 0000000 
FSBSL_ST = 00000004 
FSBSV_ACTIN = 44 $4443 
FSBSV_EOLN = 0000000 
FSB _DISP = 00000004 
LENGTH = FREFERFS 
LEN_DISP = 0000000. 
xTO = OCCCCCCC 
MAKNAM = 49h 
XNEG = 4-4 446 
MAX_DISP = 0000001 
MINOS = 0000002D 
NAMELEN = 00000020 
NAM_DISP = 0000000C 
INE = 00000039 
OTSSCVT_TI_L eeneenee §=6X 8 00 
PASSACTOALGET eerereee xX 00 
PASSBLANK_R3 eeeeeeee =X 3 
PASSCNV_IR_DEFG 00000473 RG 0 
PAS$GETBIN 00000000 RG 0 
PASSGETTXT 0000001A RG 0 
PASSIOERROR eereereer§ = X 0 
PASSREADCHAR 0000004C RG 0 
PASSREADDOUB 00000 RG 0 
PASSREADINT 00000247 RG 0 
PASSREADLN 000031 RG 0 
PASSREADOK eeeeeeee§ =X 00 
PASSREADREAL 9000 F4 RG 8 
PASSREADSCAL 0 A3 RG 
PASSREADSTR 0000006C RG 0 
PASSSTATUSUPDAT eeeeeere XK 0 
PLUS = 00000 $8 
POINT = 0000002E 
RABS$B_RAC = 00 1 
RABSC_BLN = 00 4 
RABSC” SEQ z 00000 
T = FREFFFFS 


RE SUL 
Shae ORNS T ARLE 3 oN R 02 


SCA_DIS = 000 20 
spate = 
STR_DISP = 


SSEp=19be 08:82:46 
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PASSIO_INPUT ; PASCAL RMS Linkage 
Psect Synopsis 


Geeoeeeceeesececoeeoes 


! Psect synopsis ! 


soe mame e een more oann ¢ 


PSECT name Allocation PSECT No. Attributes 

. ABS . ( oa 9 1") -) NOPIC USR CON ABS LCL 
SABSS ( ) NOPIC USR CON ABS LCL 
PASSCODE ( 1171.) } >*} PIC USR CON REL LCL 


$erormesrewtowr nec ae err err rer nroeere + 


! Performance indicators ! 


oS 


Phase Page faults CPU Time Elapsed Time 
Initialization 2 0:00: 08 00:00:00.64 
zonnene processing 1 :00: 2-3 :00: ri 
s 1 206 :00: “8 :00:11.91 
Fs table sort 0:00:00.6 +O be “Be 
Pass 2 15 00: 0: 7}: 888 bobo 
Psect synopsis output § 0:00; 0:08 0:00:00.03 
Cross-reference output 00:00: 3-38 00:00:00.00 
Assembler run totals 510 00:00:08.90 00:00:20.36 
The york ing set Limit was 1200 pages. 
34227 bytes_(67 pages) of virtual memory were used to buffer the intermediate 


There were 30 pages of symbol table space allocated to hold 484 non-local ane 
831 source lines were read in Pass 1, producing 40 object records in Pass 2. 
pages of virtual memory were used to define 9 macros. 


Geoweeeeecoecososocecoecoce$ 


Macro library name 
“S25SSDUA2B:(SYSLIBISTARLET.MLB:2 0 tS 6 
497 GETS were required to define 6 macros. 

There were no errors, warnings or information messages. 


te B table output 
MACRO/DISABLE=TRACE/LIS=L1S$:PAS102/0BJ=OBJ$:PASIO2 MSRC$:PASIO2/UPDATE=(ENH$:PASIO2) 


NOSHR 
SHR EXE 


gor Local symbols. 


AX/VMS Macro Vv04-00 
PASCAL .SRCJPASIO2.MAR; 1 


NOSHR NOEXE NORD et NOVEC 8B 
EXE RD T NOVEC B 
RD NOURT NOVEC B 
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YTE 
YTE 
YTE 
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